home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / gfx / conv / undl_1_2.lha / spool8.txt < prev    next >
Text File  |  1993-01-19  |  1KB  |  37 lines
  1. video HAM
  2. ; Example of a GL command file, by John Bickers. This is for a
  3. ; converted DL animation called SPOOL8. The file "main.pic" is a title
  4. ; picture (320x200/16) with the same palette as the clips, which gives
  5. ; the DL Title and Author fields, a box around the display area, and
  6. ; my TAP sign in the corner. DarkParticle/8 is the font I use.
  7. pload main.pic,1
  8. palette 1
  9. pfade 9,1
  10. pfree 1
  11. cload undl.001.iff,1
  12. cload undl.002.iff,2
  13. cload undl.003.iff,3
  14. cload undl.004.iff,4
  15. cload undl.005.iff,5
  16. cload undl.006.iff,6
  17. cload undl.007.iff,7
  18. cload undl.008.iff,8
  19. cload undl.009.iff,9
  20. cload undl.010.iff,10
  21. cload undl.011.iff,11
  22. cload undl.012.iff,12
  23. cload undl.013.iff,13
  24. cload undl.014.iff,14
  25. cload undl.015.iff,15
  26. cload undl.016.iff,16
  27. start:
  28.     fly 80,50,80,50,0,5,1,2,3,4,3,2,1,2,3,4,5,4,3,2,3,4,5,6,7,8,9,10
  29.     fly 80,50,80,50,0,5,11,10,9,8,9,10,11,12,13,14,15,16,15,16,15,14
  30.     fly 80,50,80,50,0,5,13,12,13,14,15,16,15,14,13,12,11,12,13,14,15
  31.     fly 80,50,80,50,0,5,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2
  32.     mark 2
  33.         fly 80,50,80,50,0,5,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
  34.         fly 80,50,80,50,0,5,15,14,13,12,11,10,9,8,7,6,5,4,3,2
  35.     loop
  36. goto start
  37.